inherited fmRejim: TfmRejim
  Left = 264
  Top = 175
  Width = 1235
  Height = 656
  Caption = #1043#1088#1072#1092#1080#1082' '#1088#1072#1073#1086#1090#1099
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited sbBottom: TStatusBar
    Top = 595
    Width = 1227
  end
  inherited Panel1: TPanel
    Width = 1227
    Visible = False
    inherited BitBtn1: TBitBtn
      Left = 1057
    end
    inherited BitBtn2: TBitBtn
      Left = 1145
    end
  end
  object pnl1: TPanel [2]
    Left = 0
    Top = 45
    Width = 345
    Height = 550
    Align = alLeft
    Caption = 'pnl1'
    TabOrder = 2
    object cxlbl1: TcxLabel
      Left = 1
      Top = 1
      Align = alTop
      Caption = #1057#1086#1090#1088#1091#1076#1085#1080#1082#1080
      ParentFont = False
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -16
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.IsFontAssigned = True
    end
    object dbgSotr: TcxGrid
      Left = 1
      Top = 24
      Width = 343
      Height = 525
      Align = alClient
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      LookAndFeel.Kind = lfStandard
      object tvSotr: TcxGridDBTableView
        NavigatorButtons.ConfirmDelete = False
        DataController.DataSource = dlgDS
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <>
        DataController.Summary.SummaryGroups = <>
        OptionsBehavior.CellHints = True
        OptionsBehavior.IncSearch = True
        OptionsCustomize.ColumnFiltering = False
        OptionsData.CancelOnExit = False
        OptionsData.Deleting = False
        OptionsData.DeletingConfirmation = False
        OptionsData.Editing = False
        OptionsData.Inserting = False
        OptionsView.CellEndEllipsis = True
        OptionsView.NoDataToDisplayInfoText = '<'#1053#1077#1090' '#1076#1072#1085#1085#1099#1093'>'
        OptionsView.CellAutoHeight = True
        OptionsView.CellTextMaxLineCount = 1
        OptionsView.ColumnAutoWidth = True
        OptionsView.GroupByBox = False
        OptionsView.HeaderEndEllipsis = True
        Preview.Visible = True
        Styles.Header = DMInv.cxSiniyText
        object tvSotrFIO: TcxGridDBColumn
          Caption = #1060#1048#1054
          DataBinding.FieldName = 'FIO'
          Width = 292
        end
        object tvSotrDOLJNOST: TcxGridDBColumn
          Caption = #1044#1086#1083#1078#1085#1086#1089#1090#1100
          DataBinding.FieldName = 'DOLJNOST'
          Width = 215
        end
      end
      object cxGridLevel1: TcxGridLevel
        GridView = tvSotr
      end
    end
  end
  object pnl2: TPanel [3]
    Left = 345
    Top = 45
    Width = 433
    Height = 550
    Align = alLeft
    Caption = 'pnl1'
    TabOrder = 3
    object cxlbl2: TcxLabel
      Left = 1
      Top = 1
      Align = alTop
      Caption = #1054#1075#1088#1072#1085#1080#1095#1077#1085#1080#1103' '#1087#1086' '#1076#1072#1090#1072#1084
      ParentFont = False
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -16
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.IsFontAssigned = True
    end
    object dbgDateGraf: TcxGrid
      Left = 1
      Top = 56
      Width = 431
      Height = 493
      Align = alClient
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      LookAndFeel.Kind = lfStandard
      object tvDG: TcxGridDBTableView
        NavigatorButtons.ConfirmDelete = False
        OnEditValueChanged = tvDGEditValueChanged
        DataController.DataSource = dsDateGraf
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <>
        DataController.Summary.SummaryGroups = <>
        OptionsBehavior.CellHints = True
        OptionsCustomize.ColumnFiltering = False
        OptionsData.CancelOnExit = False
        OptionsData.Deleting = False
        OptionsData.DeletingConfirmation = False
        OptionsData.Editing = False
        OptionsData.Inserting = False
        OptionsView.CellEndEllipsis = True
        OptionsView.NoDataToDisplayInfoText = '<'#1053#1077#1090' '#1076#1072#1085#1085#1099#1093'>'
        OptionsView.CellAutoHeight = True
        OptionsView.CellTextMaxLineCount = 1
        OptionsView.ColumnAutoWidth = True
        OptionsView.GroupByBox = False
        OptionsView.HeaderEndEllipsis = True
        Preview.Visible = True
        Styles.Header = DMInv.cxSiniyText
        object tvDGDATA: TcxGridDBColumn
          Caption = #1044#1072#1090#1072
          DataBinding.FieldName = 'DATA'
          PropertiesClassName = 'TcxDateEditProperties'
        end
        object tvDGPROCESSID: TcxGridDBColumn
          Caption = #1044#1077#1081#1089#1090#1074#1080#1077
          DataBinding.FieldName = 'PROCESSID'
          PropertiesClassName = 'TcxLookupComboBoxProperties'
          Properties.KeyFieldNames = 'processid'
          Properties.ListColumns = <
            item
              FieldName = 'name'
            end>
          Properties.ListOptions.ShowHeader = False
          Properties.ListSource = ds1
        end
        object tvDGTIME_BEGIN: TcxGridDBColumn
          Caption = #1042#1088#1077#1084#1103' '#1089
          DataBinding.FieldName = 'TIME_BEGIN'
          PropertiesClassName = 'TcxTimeEditProperties'
          Properties.TimeFormat = tfHourMin
        end
        object tvDGTIME_END: TcxGridDBColumn
          Caption = #1042#1088#1077#1084#1103' '#1087#1086
          DataBinding.FieldName = 'TIME_END'
          PropertiesClassName = 'TcxTimeEditProperties'
          Properties.TimeFormat = tfHourMin
        end
        object tvDGIS_DENIED: TcxGridDBColumn
          Caption = #1047#1072#1087#1088#1077#1090' '#1087#1086#1089#1077#1097#1077#1085#1080#1103
          DataBinding.FieldName = 'IS_DENIED'
          PropertiesClassName = 'TcxCheckBoxProperties'
          Properties.NullStyle = nssUnchecked
          Properties.ValueChecked = 1
          Properties.ValueUnchecked = 0
        end
      end
      object cxGridLevel2: TcxGridLevel
        GridView = tvDG
      end
    end
    object tlb1: TToolBar
      Left = 1
      Top = 24
      Width = 431
      AutoSize = True
      BorderWidth = 2
      EdgeInner = esNone
      EdgeOuter = esNone
      Images = DMInv.ilActive
      TabOrder = 2
      TabStop = True
      Transparent = True
      Visible = False
      object btnInsertK: TToolButton
        Left = 0
        Top = 2
        Hint = #1044#1086#1073#1072#1074#1080#1090#1100
        ImageIndex = 30
        ParentShowHint = False
        ShowHint = True
        OnClick = btnInsertKClick
      end
      object btnDeleteK: TToolButton
        Left = 23
        Top = 2
        Hint = #1059#1076#1072#1083#1080#1090#1100
        ImageIndex = 29
        ParentShowHint = False
        ShowHint = True
        OnClick = btnDeleteKClick
      end
    end
  end
  object Panel2: TPanel [4]
    Left = 778
    Top = 45
    Width = 449
    Height = 550
    Align = alClient
    Caption = 'pnl1'
    TabOrder = 4
    object cxLabel1: TcxLabel
      Left = 1
      Top = 1
      Align = alTop
      Caption = #1062#1080#1082#1083#1080#1095#1077#1089#1082#1080#1077' '#1086#1075#1088#1072#1085#1080#1095#1077#1085#1080#1103
      ParentFont = False
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -16
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.IsFontAssigned = True
    end
    object dbgCycleGraf: TcxGrid
      Left = 1
      Top = 56
      Width = 447
      Height = 493
      Align = alClient
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      LookAndFeel.Kind = lfStandard
      object tvCG: TcxGridDBTableView
        NavigatorButtons.ConfirmDelete = False
        OnEditValueChanged = tvCGEditValueChanged
        DataController.DataSource = dsSG
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <>
        DataController.Summary.SummaryGroups = <>
        OptionsBehavior.CellHints = True
        OptionsCustomize.ColumnFiltering = False
        OptionsData.CancelOnExit = False
        OptionsData.Deleting = False
        OptionsData.DeletingConfirmation = False
        OptionsData.Editing = False
        OptionsData.Inserting = False
        OptionsView.CellEndEllipsis = True
        OptionsView.NoDataToDisplayInfoText = '<'#1053#1077#1090' '#1076#1072#1085#1085#1099#1093'>'
        OptionsView.CellAutoHeight = True
        OptionsView.CellTextMaxLineCount = 1
        OptionsView.ColumnAutoWidth = True
        OptionsView.GroupByBox = False
        OptionsView.HeaderEndEllipsis = True
        Preview.Visible = True
        Styles.Header = DMInv.cxSiniyText
        object tvCGDAYID: TcxGridDBColumn
          Caption = #1044#1077#1085#1100
          DataBinding.FieldName = 'DAYID'
          PropertiesClassName = 'TcxLookupComboBoxProperties'
          Properties.KeyFieldNames = 'dayid'
          Properties.ListColumns = <
            item
              FieldName = 'name'
            end>
          Properties.ListOptions.ShowHeader = False
          Properties.ListSource = ds2
        end
        object tvCGPROCESSID: TcxGridDBColumn
          Caption = #1044#1077#1081#1089#1090#1074#1080#1077
          DataBinding.FieldName = 'PROCESSID'
          PropertiesClassName = 'TcxLookupComboBoxProperties'
          Properties.KeyFieldNames = 'processid'
          Properties.ListColumns = <
            item
              FieldName = 'name'
            end>
          Properties.ListOptions.ShowHeader = False
          Properties.ListSource = ds1
        end
        object tvCGTIME_BEGIN: TcxGridDBColumn
          Caption = #1042#1088#1077#1084#1103' '#1089
          DataBinding.FieldName = 'TIME_BEGIN'
          PropertiesClassName = 'TcxTimeEditProperties'
          Properties.TimeFormat = tfHourMin
        end
        object tvCGTIME_END: TcxGridDBColumn
          Caption = #1042#1088#1077#1084#1103' '#1087#1086
          DataBinding.FieldName = 'TIME_END'
          PropertiesClassName = 'TcxTimeEditProperties'
          Properties.TimeFormat = tfHourMin
        end
        object tvCGIS_DENIED: TcxGridDBColumn
          Caption = #1047#1072#1087#1088#1077#1090' '#1087#1086#1089#1077#1097#1077#1085#1080#1103
          DataBinding.FieldName = 'IS_DENIED'
          PropertiesClassName = 'TcxCheckBoxProperties'
          Properties.NullStyle = nssUnchecked
          Properties.ValueChecked = 1
          Properties.ValueUnchecked = 0
        end
      end
      object cxGridLevel3: TcxGridLevel
        GridView = tvCG
      end
    end
    object ToolBar1: TToolBar
      Left = 1
      Top = 24
      Width = 447
      AutoSize = True
      BorderWidth = 2
      EdgeInner = esNone
      EdgeOuter = esNone
      Images = DMInv.ilActive
      TabOrder = 2
      TabStop = True
      Transparent = True
      Visible = False
      object btn2: TToolButton
        Left = 0
        Top = 2
        Hint = #1055#1077#1088#1077#1089#1086#1079#1076#1072#1090#1100' '#1094#1080#1082#1083
        Caption = 'btn2'
        ImageIndex = 4
        ParentShowHint = False
        ShowHint = True
        OnClick = btn2Click
      end
      object ToolButton1: TToolButton
        Left = 23
        Top = 2
        Hint = #1044#1086#1073#1072#1074#1080#1090#1100
        ImageIndex = 30
        ParentShowHint = False
        ShowHint = True
        OnClick = ToolButton1Click
      end
      object btn1: TToolButton
        Left = 46
        Top = 2
        Hint = #1059#1076#1072#1083#1080#1090#1100
        ImageIndex = 29
        ParentShowHint = False
        ShowHint = True
        OnClick = btn1Click
      end
    end
  end
  inherited dlgDS: TDataSource
    DataSet = qSotr
  end
  object qSotr: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT ps.pid,'
      
        'p.plastname || '#39' '#39' || p.pname || '#39' '#39' || COALESCE(p.ppatronymic, ' +
        #39' '#39') AS fio,'
      'sd.SDNAME AS doljnost'
      'FROM p_status ps'
      'INNER JOIN(SELECT t1.sdid'
      
        '           FROM (WITH RECURSIVE tree (sdname, sdid, sdparid, o) ' +
        'AS (SELECT sd.sdname, sd.sdid, sd.sdparid,'
      
        '                                                                ' +
        '           CAST('#39#39' AS VARCHAR(2048)) AS o'
      
        '                                                                ' +
        '    FROM sys_dic sd'
      
        '                                                                ' +
        '    WHERE sd.sdparid = 1470'
      
        '                                                                ' +
        '    UNION ALL'
      
        '                                                                ' +
        '    SELECT sd1.sdname, sd1.sdid, sd1.sdparid, '#39' '#39' || o'
      ''
      
        '                                                                ' +
        '    FROM sys_dic sd1'
      
        '                                                                ' +
        '    INNER JOIN tree t ON t.sdid = sd1.sdparid) SELECT o || sdnam' +
        'e AS sdname,'
      
        '                                                                ' +
        '                                                      sdid,'
      
        '                                                                ' +
        '                                                      sdparid'
      
        '                                                                ' +
        '                                               FROM tree t) AS t' +
        '1) AS sotr ON sotr.sdid = ps.sdid'
      'INNER JOIN people p ON p.pid = ps.pid'
      'INNER JOIN SYS_DIC sd ON sd.SDID = ps.SDID'
      'WHERE ps.SDID <> 1783'
      'order BY 3,2')
    Left = 288
    object qSotrPID: TIntegerField
      FieldName = 'PID'
      Origin = '"P_STATUS"."PID"'
      Required = True
    end
    object qSotrFIO: TIBStringField
      FieldName = 'FIO'
      ProviderFlags = []
      Size = 767
    end
    object qSotrDOLJNOST: TIBStringField
      FieldName = 'DOLJNOST'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
  end
  object dsDateGraf: TDataSource
    DataSet = qDateGraf
    Left = 568
    Top = 120
  end
  object qDateGraf: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterInsert = qDateGrafAfterInsert
    AfterPost = qDateGrafAfterPost
    CachedUpdates = True
    DataSource = dlgDS
    SQL.Strings = (
      'SELECT DG.*'
      'FROM OK_DATEGRAF DG'
      'WHERE DG.PID = :PID')
    UpdateObject = quDategraf
    GeneratorField.Field = 'OKDID'
    GeneratorField.Generator = 'GEN_OK_DATEGRAF_ID'
    Left = 600
    Top = 120
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PID'
        ParamType = ptUnknown
      end>
    object qDateGrafOKDID: TIntegerField
      FieldName = 'OKDID'
      Origin = '"OK_DATEGRAF"."OKDID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qDateGrafPID: TIntegerField
      FieldName = 'PID'
      Origin = '"OK_DATEGRAF"."PID"'
    end
    object qDateGrafDATA: TDateField
      FieldName = 'DATA'
      Origin = '"OK_DATEGRAF"."DATA"'
    end
    object qDateGrafPROCESSID: TIntegerField
      FieldName = 'PROCESSID'
      Origin = '"OK_DATEGRAF"."PROCESSID"'
    end
    object qDateGrafTIME_BEGIN: TTimeField
      FieldName = 'TIME_BEGIN'
      Origin = '"OK_DATEGRAF"."TIME_BEGIN"'
    end
    object qDateGrafTIME_END: TTimeField
      FieldName = 'TIME_END'
      Origin = '"OK_DATEGRAF"."TIME_END"'
    end
    object qDateGrafIS_DENIED: TIntegerField
      FieldName = 'IS_DENIED'
      Origin = '"OK_DATEGRAF"."IS_DENIED"'
    end
    object qDateGrafUSERENTER: TIBStringField
      FieldName = 'USERENTER'
      Origin = '"OK_DATEGRAF"."USERENTER"'
      Size = 40
    end
    object qDateGrafTIMEENTER: TDateTimeField
      FieldName = 'TIMEENTER'
      Origin = '"OK_DATEGRAF"."TIMEENTER"'
    end
    object qDateGrafUSEREDIT: TIBStringField
      FieldName = 'USEREDIT'
      Origin = '"OK_DATEGRAF"."USEREDIT"'
      Size = 40
    end
    object qDateGrafTIMEEDIT: TDateTimeField
      FieldName = 'TIMEEDIT'
      Origin = '"OK_DATEGRAF"."TIMEEDIT"'
    end
  end
  object quDategraf: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  OKDID,'
      '  PID,'
      '  DATA,'
      '  PROCESSID,'
      '  TIME_BEGIN,'
      '  TIME_END,'
      '  IS_DENIED,'
      '  USERENTER,'
      '  TIMEENTER,'
      '  USEREDIT,'
      '  TIMEEDIT'
      'from OK_DATEGRAF '
      'where'
      '  OKDID = :OKDID')
    ModifySQL.Strings = (
      'update OK_DATEGRAF'
      'set'
      '  DATA = :DATA,'
      '  IS_DENIED = :IS_DENIED,'
      '  OKDID = :OKDID,'
      '  PID = :PID,'
      '  PROCESSID = :PROCESSID,'
      '  TIME_BEGIN = :TIME_BEGIN,'
      '  TIME_END = :TIME_END'
      'where'
      '  OKDID = :OLD_OKDID')
    InsertSQL.Strings = (
      'insert into OK_DATEGRAF'
      '  (DATA, IS_DENIED, OKDID, PID, PROCESSID, TIME_BEGIN, TIME_END)'
      'values'
      
        '  (:DATA, :IS_DENIED, :OKDID, :PID, :PROCESSID, :TIME_BEGIN, :TI' +
        'ME_END)')
    DeleteSQL.Strings = (
      'delete from OK_DATEGRAF'
      'where'
      '  OKDID = :OLD_OKDID')
    Left = 632
    Top = 120
  end
  object dxmdt1: TdxMemData
    Indexes = <>
    Persistent.Data = {
      5665728FC2F5285C8FFE3F0200000014000000010005006E616D650004000000
      03000A0070726F636573736964000104000000C2F5EEE4010000000001050000
      00C2FBF5EEE40101000000010A000000C2F5EEE42FE2FBF5EEE40102000000}
    SortOptions = []
    Left = 600
    Top = 160
    object strngflddxmdt1name: TStringField
      FieldName = 'name'
    end
    object intgrflddxmdt1value: TIntegerField
      FieldName = 'processid'
    end
  end
  object ds1: TDataSource
    DataSet = dxmdt1
    Left = 568
    Top = 160
  end
  object sqlCreateCG: TIBSQL
    Database = DMInv.DBRead
    SQL.Strings = (
      'execute procedure SP_CREATECYCLEGRAF(:pid);')
    Transaction = DMInv.IBTransaction1
    Left = 905
    Top = 72
  end
  object dsSG: TDataSource
    DataSet = qCG
    Left = 824
    Top = 128
  end
  object qCG: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterInsert = qCGAfterInsert
    AfterPost = qCGAfterPost
    CachedUpdates = True
    DataSource = dlgDS
    SQL.Strings = (
      'SELECT CG.*'
      'FROM OK_CYCLEGRAF CG'
      'WHERE CG.PID = :pid')
    UpdateObject = quCG
    GeneratorField.Field = 'OKCID'
    GeneratorField.Generator = 'GEN_OK_CYCLEGRAF_ID'
    Left = 856
    Top = 128
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'pid'
        ParamType = ptUnknown
      end>
    object intgrfldCGOKCID: TIntegerField
      FieldName = 'OKCID'
      Origin = '"OK_CYCLEGRAF"."OKCID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object intgrfldCGPID: TIntegerField
      FieldName = 'PID'
      Origin = '"OK_CYCLEGRAF"."PID"'
    end
    object intgrfldCGDAYID: TIntegerField
      FieldName = 'DAYID'
      Origin = '"OK_CYCLEGRAF"."DAYID"'
    end
    object intgrfldCGPROCESSID: TIntegerField
      FieldName = 'PROCESSID'
      Origin = '"OK_CYCLEGRAF"."PROCESSID"'
    end
    object qCGTIME_BEGIN: TTimeField
      FieldName = 'TIME_BEGIN'
      Origin = '"OK_CYCLEGRAF"."TIME_BEGIN"'
    end
    object qCGTIME_END: TTimeField
      FieldName = 'TIME_END'
      Origin = '"OK_CYCLEGRAF"."TIME_END"'
    end
    object intgrfldCGIS_DENIED: TIntegerField
      FieldName = 'IS_DENIED'
      Origin = '"OK_CYCLEGRAF"."IS_DENIED"'
    end
    object qCGUSERENTER: TIBStringField
      FieldName = 'USERENTER'
      Origin = '"OK_CYCLEGRAF"."USERENTER"'
      Size = 40
    end
    object qCGTIMEENTER: TDateTimeField
      FieldName = 'TIMEENTER'
      Origin = '"OK_CYCLEGRAF"."TIMEENTER"'
    end
    object qCGUSEREDIT: TIBStringField
      FieldName = 'USEREDIT'
      Origin = '"OK_CYCLEGRAF"."USEREDIT"'
      Size = 40
    end
    object qCGTIMEEDIT: TDateTimeField
      FieldName = 'TIMEEDIT'
      Origin = '"OK_CYCLEGRAF"."TIMEEDIT"'
    end
  end
  object quCG: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  OKCID,'
      '  PID,'
      '  DAYID,'
      '  PROCESSID,'
      '  TIME_BEGIN,'
      '  TIME_END,'
      '  IS_DENIED,'
      '  USERENTER,'
      '  TIMEENTER,'
      '  USEREDIT,'
      '  TIMEEDIT'
      'from OK_CYCLEGRAF '
      'where'
      '  OKCID = :OKCID')
    ModifySQL.Strings = (
      'update OK_CYCLEGRAF'
      'set'
      '  DAYID = :DAYID,'
      '  IS_DENIED = :IS_DENIED,'
      '  OKCID = :OKCID,'
      '  PID = :PID,'
      '  PROCESSID = :PROCESSID,'
      '  TIME_BEGIN = :TIME_BEGIN,'
      '  TIME_END = :TIME_END'
      'where'
      '  OKCID = :OLD_OKCID')
    InsertSQL.Strings = (
      'insert into OK_CYCLEGRAF'
      
        '  (DAYID, IS_DENIED, OKCID, PID, PROCESSID, TIME_BEGIN, TIME_END' +
        ')'
      'values'
      
        '  (:DAYID, :IS_DENIED, :OKCID, :PID, :PROCESSID, :TIME_BEGIN, :T' +
        'IME_END)')
    DeleteSQL.Strings = (
      'delete from OK_CYCLEGRAF'
      'where'
      '  OKCID = :OLD_OKCID')
    Left = 888
    Top = 128
  end
  object ds2: TDataSource
    DataSet = dxmdt2
    Left = 824
    Top = 168
  end
  object dxmdt2: TdxMemData
    Indexes = <>
    Persistent.Data = {
      5665728FC2F5285C8FFE3F0200000014000000010005006E616D650004000000
      030006006461796964000102000000CFED01010000000102000000C2F2010200
      00000102000000D1F001030000000102000000D7F201040000000102000000CF
      F201050000000102000000D1E101060000000102000000C2F10100000000}
    SortOptions = []
    Left = 856
    Top = 168
    object strngfld1: TStringField
      FieldName = 'name'
    end
    object intgrfld1: TIntegerField
      FieldName = 'dayid'
    end
  end
end
